home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmsstins.arc / COLORS.SCR < prev    next >
Encoding:
Text File  |  1987-09-20  |  1.3 KB  |  98 lines
  1. Goto Start
  2.  
  3. Show_it:
  4. Colorfg 0
  5. Display ' ** '
  6. Colorfg 1
  7. Display ' ** '
  8. Colorfg 2
  9. Display ' ** '
  10. Colorfg 3
  11. Display ' ** '
  12. Colorfg 4
  13. Display ' ** '
  14. Colorfg 5
  15. Display ' ** '
  16. Colorfg 6
  17. Display ' ** '
  18. Colorfg 7
  19. Display ' ** '
  20. Colorfg 8
  21. Display ' ** '
  22. Colorfg 9
  23. Display ' ** '
  24. Colorfg 10
  25. Display ' ** '
  26. Colorfg 11
  27. Display ' ** '
  28. Colorfg 12
  29. Display ' ** '
  30. Colorfg 13
  31. Display ' ** '
  32. Colorfg 14
  33. Display ' ** '
  34. Colorfg 15
  35. Display ' ** '
  36. Return
  37.  
  38. Start:
  39. Window 1 1 80 24
  40. Colorbg 0
  41. Clrscr
  42. Colorbg 1
  43. Colorfg 15
  44. Box 1 1 80 13
  45. Colorbg 1
  46. Clrscr
  47. Note                  F o r e g r o u n d   C o l o r s
  48. Note        0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15
  49. Note     0
  50. Note     1
  51. Note  B  2
  52. Note  a  3
  53. Note  c  4
  54. Note  k  5
  55. Note     6
  56. Note     7
  57. Window  7 4 78 12
  58. Gotoxy  1 1
  59. Colorbg 0
  60. gosub show_it
  61. Gotoxy  1 2
  62. Colorbg 1
  63. gosub show_it
  64. Gotoxy  1 3
  65. Colorbg 2
  66. gosub show_it
  67. Gotoxy  1 4
  68. Colorbg 3
  69. gosub show_it
  70. Gotoxy  1 5
  71. Colorbg 4
  72. gosub show_it
  73. Gotoxy  1 6
  74. Colorbg 5
  75. gosub show_it
  76. Gotoxy  1 7
  77. Colorbg 6
  78. gosub show_it
  79. Gotoxy  1 8
  80. Colorbg 7
  81. gosub show_it
  82. Window  1 15 80 24
  83. Colorfg 15
  84. Colorbg 0
  85.  
  86. Clrscr
  87. GotoXY  1 12
  88. Display "Enter Foreground Color "
  89. get 0 2
  90. display "Enter Background Color "
  91. Get 1 1
  92. ColorFG $0
  93. ColorBG $1
  94. window 1 1 80 24
  95. clrscr
  96. Note Color Change Done!
  97. exit
  98.